home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / prokit34.zip / PROUTIL.INT < prev    next >
Text File  |  1991-04-01  |  3KB  |  104 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. unit ProUtil;
  14.  
  15. interface
  16.  
  17. Uses
  18.    Dos,
  19.    Tools,
  20.    MdosIO,
  21.    BufIO,
  22.    ProData;
  23.  
  24. function expert: boolean;
  25.  
  26. procedure not_understood;
  27. procedure not_available;
  28. procedure file_not_found (name: anystring);
  29. procedure file_missing(where: integer);
  30.  
  31. procedure keypause;
  32.  
  33. function pro_command: anystring;
  34. function pro_title: anystring;
  35. function pro_code: char;
  36. function pro_files: integer;
  37. function pro_mode: transfer_modes;
  38.  
  39. function estimated_time(size: longint): real;
  40.  
  41. procedure open_capture;
  42. procedure close_capture;
  43. procedure flush_capture;
  44.  
  45. procedure clean_playpen;
  46. procedure clean_scratch;
  47.  
  48. procedure disp_margin(left,width: integer);
  49.  
  50. function expdate(yymmdd: string8): string8;     {convert to mm-dd-yy}
  51. function mmddyy_to_yymmdd(mmddyy: string8): string8;
  52. function yymmdd_to_mmddyy(yymmdd: string8): string8;
  53.  
  54. function todays_date_mmddyy: string8;
  55. function todays_date_yymmdd: string8;
  56.  
  57. function dtok(d: double): string8;
  58. function stok(s: single): string8;
  59.  
  60. procedure check_command_line(var command: string);
  61.  
  62. procedure disconnect_warning(left: integer);
  63. procedure check_disconnect_warning;
  64.  
  65. function file_is_new(name: dos_filename): boolean;
  66.  
  67. procedure abort_program(reason: string);
  68. procedure usage (error: anystring);
  69.  
  70. procedure get_dos_name(handle: dos_handle);
  71.  
  72. procedure check_write(handle:  dos_handle;
  73.                       var      buffer;
  74.                       bytes:   word);
  75.  
  76. function check_open(name:     dos_filename;
  77.                     mode:     open_modes;
  78.                     code:     integer):  dos_handle;
  79.  
  80. procedure check_read( handle:   dos_handle;
  81.                       var       buffer;
  82.                       bytes:    word);
  83.  
  84. procedure get_file_record(name:  dos_filename;
  85.                           recn:  word;
  86.                           var buffer;
  87.                           recsz: word);
  88.  
  89. procedure put_fd_record(fd:    dos_handle;
  90.                         recn:  word;
  91.                         var buffer;
  92.                         recsz: word);
  93.  
  94. procedure put_file_record(name:  dos_filename;
  95.                           recn:  word;
  96.                           var buffer;
  97.                           recsz: word);
  98.  
  99. function within_time_range(st,en: anystring): boolean;
  100.  
  101. procedure dampen(limit: integer);
  102.  
  103. implementation
  104.